Option Explicit
Sub Q_Sample058()
    Dim myHwnd As Long
    Dim myClassName As String * 100
    Dim myCaption As String * 80
    myHwnd = FindWindow("wndclass_desked_gsk", vbNullString)
    GetWindowText myHwnd, myCaption, Len(myCaption)
@@MsgBox Left(myCaption, InStr(myCaption, vbNullChar) - 1)
End Sub